www.gusucode.com > AspFaq在线帮助系统 V1.0 > AspFaq在线帮助系统 V1.0\code\admin\Html_Do.asp

    <!--#include file="Include.asp"-->
<!--#Include file="../Inc/Cls_Templet.asp"-->
<!--#Include file="../Inc/Templet.asp"-->
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color: #666666;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
a {
	font-size: 12px;
	color: #666666;
}
a:visited {
	color: #666666;
}
a:hover {
	color: #666666;
}
a:active {
	color: #666666;
}
-->
</style>
<%
dim types
dim Helps_Title,Helps_Content
dim Helps_Category_Name
types=clng(request.QueryString("type"))
select case types
  case 1
    call Html_Index_iframe()
  case 2
    call Html_Category_iframe()
  case 3
    call Html_Helps_iframe()
  case 4
    call Html_HelpsHtml_iframe()
  case 5
    call Html_HelpsCategoryHtml_iframe()
  case 6
    call Html_CategoryHtml_iframe()

  case 101
    call Html_Index()
  case 102
    call Html_Category()
  case 103
    call Html_Helps()
  case 104
    call Html_HelpsHtml()
  case 105
    call Html_HelpsCategoryHtml()
  case 106
    call Html_CategoryHtml()
  case else
    response.Write("类型错误！")
	response.End()
end select

'首页生成iframe
Sub Html_Index_iframe()
%>
<iframe src="Html_Do.asp?type=101" height="100" width="400"></iframe>
<%
End Sub

'分类生成iframe
Sub Html_Category_iframe()
%>
<iframe src="Html_Do.asp?type=102" height="100" width="400"></iframe>
<%
End Sub

'帮助条目生成iframe
Sub Html_Helps_iframe()
%>
<iframe src="Html_Do.asp?type=103" height="100" width="400"></iframe>
<%
End Sub

'帮助新条目生成iframe
Sub Html_HelpsHtml_iframe()
%>
<iframe src="Html_Do.asp?type=104" height="100" width="400"></iframe>
<%
End Sub

'帮助指定分类条目生成iframe
Sub Html_HelpsCategoryHtml_iframe()
  Category=clng(request.QueryString("Category"))
%>
<iframe src="Html_Do.asp?type=105&Category=<%=Category%>" height="100" width="400"></iframe>
<%
End Sub

'帮助指定分类页面生成iframe
Sub Html_CategoryHtml_iframe()
  Category=clng(request.QueryString("Category"))
%>
<iframe src="Html_Do.asp?type=106&Category=<%=Category%>" height="100" width="400"></iframe>
<%
End Sub

'生成首页
Sub Html_Index()
  sqlstr="select * from [Templet] where Templet_Type=1"
  rs.open sqlstr,conn,1,3
  If Not rs.eof Then
	 Templet_Content=rs("Templet_Content")
  Else
	rs.close
	response.Write("默认首页模板出错！")
	response.End()
  End If
  rs.close
  Templet_Content=Templet_ChangeAll(Templet_Content,1)
  Templet_Content=Templet_ChangeLists(Templet_Content)
  Urls=server.MapPath("../Index.html")
  Call WriteTextFile(Urls,Templet_Content,"utf-8")
  response.Write("首页生成成功！<br />")
  sqlstr="select * from [Templet] where Templet_Type=5"
  rs.open sqlstr,conn,1,3
  If Not rs.eof Then
	 Templet_Content=rs("Templet_Content")
  Else
	rs.close
	response.Write("默认留言页模板出错！")
	response.End()
  End If
  rs.close
  Templet_Content=Templet_ChangeAll(Templet_Content,5)
  Templet_Content=Templet_ChangeLists(Templet_Content)
  Urls=server.MapPath("../Guest.html")
  Call WriteTextFile(Urls,Templet_Content,"utf-8")
  response.Write("留言页生成成功！")
End Sub

'生成分类
Sub Html_Category()
  sqlstr="select * from [Templet] where Templet_Type=2"
  rs.open sqlstr,conn,1,3
  If Not rs.eof Then
	 Templet_Content2=rs("Templet_Content")
  Else
	rs.close
	response.Write("默认首页模板出错！")
	response.End()
  End If
  rs.close
  set rs2=server.createobject("adodb.recordset")
  sqlstr="select * from [Helps_Category] where Helps_Category_Show=0 order by Helps_Category_Order desc,Helps_Category_Id asc"
  rs2.open sqlstr,conn,1,3
  While Not rs2.eof
    id=rs2("Helps_Category_Id")
    Helps_Category_Name=rs2("Helps_Category_Name")
    Templet_Content=Templet_Content2
    Templet_Content=Templet_ChangeAll(Templet_Content,2)
    Templet_Content=Templet_ChangeLists(Templet_Content)
    Urls=server.MapPath("../Category_"&id&".html")
    Call WriteTextFile(Urls,Templet_Content,"utf-8")
	response.Write(Helps_Category_Name&"分类生成成功！<br />")
    rs2.movenext
  Wend
  rs2.close
  response.Write("生成任务结束！")
End Sub

'生成帮助条目
Sub Html_Helps()
  sqlstr="select * from [Templet] where Templet_Type=3"
  rs.open sqlstr,conn,1,3
  If Not rs.eof Then
	 Templet_Content2=rs("Templet_Content")
  Else
	rs.close
	response.Write("默认首页模板出错！")
	response.End()
  End If
  rs.close
  set rs2=server.createobject("adodb.recordset")
  sqlstr="select * from [Helps] where Helps_Show=0"
  rs2.open sqlstr,conn,1,3
  application.Lock()
  While Not rs2.eof
    id=rs2("Helps_Id")
    Helps_Title=rs2("Helps_Title")
    Helps_Content=rs2("Helps_Content")
    Templet_Content=Templet_Content2
    Templet_Content=Templet_ChangeAll(Templet_Content,3)
    Templet_Content=Templet_ChangeLists(Templet_Content)
	Templet_Content=Templet_ChangeHelp(Templet_Content)
    Urls=server.MapPath("../Html/Helps_"&id&".html")
    Call WriteTextFile(Urls,Templet_Content,"utf-8")
	response.Write(Helps_Title&"生成成功！<br />")
	rs2("Helps_Html")=1
	rs2.update
    rs2.movenext
  Wend
  application.UnLock()
  rs2.close
  response.Write("生成任务结束！")
End Sub

'生成新帮助条目
Sub Html_HelpsHtml()
  sqlstr="select * from [Templet] where Templet_Type=3"
  rs.open sqlstr,conn,1,3
  If Not rs.eof Then
	 Templet_Content2=rs("Templet_Content")
  Else
	rs.close
	response.Write("默认首页模板出错！")
	response.End()
  End If
  rs.close
  set rs2=server.createobject("adodb.recordset")
  sqlstr="select * from [Helps] where Helps_Show=0 and Helps_Html=0"
  rs2.open sqlstr,conn,1,3
  application.Lock()
  While Not rs2.eof
    id=rs2("Helps_Id")
    Helps_Title=rs2("Helps_Title")
    Helps_Content=rs2("Helps_Content")
    Templet_Content=Templet_Content2
    Templet_Content=Templet_ChangeAll(Templet_Content,3)
    Templet_Content=Templet_ChangeLists(Templet_Content)
    Urls=server.MapPath("../Html/Helps_"&id&".html")
    Call WriteTextFile(Urls,Templet_Content,"utf-8")
	response.Write(Helps_Title&"生成成功！<br />")
	rs2("Helps_Html")=1
	rs2.update
    rs2.movenext
  Wend
  application.UnLock()
  rs2.close
  response.Write("生成任务结束！")
End Sub

'生成指定分类帮助条目
Sub Html_HelpsCategoryHtml()
  sqlstr="select * from [Templet] where Templet_Type=3"
  rs.open sqlstr,conn,1,3
  If Not rs.eof Then
	 Templet_Content2=rs("Templet_Content")
  Else
	rs.close
	response.Write("默认首页模板出错！")
	response.End()
  End If
  rs.close
  Category=clng(request.QueryString("Category"))
  set rs2=server.createobject("adodb.recordset")
  sqlstr="select * from [Helps] where Helps_Show=0 and Helps_Category=" & Category
  rs2.open sqlstr,conn,1,3
  application.Lock()
  While Not rs2.eof
    id=rs2("Helps_Id")
    Helps_Title=rs2("Helps_Title")
    Helps_Content=rs2("Helps_Content")
    Templet_Content=Templet_Content2
    Templet_Content=Templet_ChangeAll(Templet_Content,3)
    Templet_Content=Templet_ChangeLists(Templet_Content)
    Urls=server.MapPath("../Html/Helps_"&id&".html")
    Call WriteTextFile(Urls,Templet_Content,"utf-8")
	response.Write(Helps_Title&"生成成功！<br />")
	rs2("Helps_Html")=1
	rs2.update
    rs2.movenext
  Wend
  application.UnLock()
  rs2.close
  response.Write("生成任务结束！")
End Sub

'生成指定分类
Sub Html_CategoryHtml()
  sqlstr="select * from [Templet] where Templet_Type=2"
  rs.open sqlstr,conn,1,3
  If Not rs.eof Then
	 Templet_Content2=rs("Templet_Content")
  Else
	rs.close
	response.Write("默认首页模板出错！")
	response.End()
  End If
  rs.close
  Category=clng(request.QueryString("Category"))
  id=Category
  set rs2=server.createobject("adodb.recordset")
  sqlstr="select * from [Helps_Category] where Helps_Category_Show=0 and Helps_Category_Id=" & Category
  rs2.open sqlstr,conn,1,3
  If Not rs2.eof Then
    Helps_Category_Name=rs2("Helps_Category_Name")
    Templet_Content=Templet_Content2
    Templet_Content=Templet_ChangeAll(Templet_Content,2)
    Templet_Content=Templet_ChangeLists(Templet_Content)
    Urls=server.MapPath("../Category_"&id&".html")
    Call WriteTextFile(Urls,Templet_Content,"utf-8")
	response.Write(Helps_Category_Name&"分类页面生成成功！<br />")
  End If
  rs2.close
  response.Write("生成任务结束！")
End Sub
%>